home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 2000 November / cd joystick no120 novembre 2000 cd 1.iso / data / demos / gunlok / data1.cab / Program_Executable_Files / scripts / redlightmini.gsh < prev    next >
Text File  |  2000-08-22  |  1KB  |  52 lines
  1. // defines red light mini
  2. ////////////////////////////////////////////////////////////////////////////////////
  3.  
  4. // start wrapper - prevent multiple inclusions or recursive inclusions
  5.  
  6. //(this currently causes 'unrecognized preprocessor directive' warnings, until implemented)
  7. #ifndef INCLUDED_redlightmini_GSH
  8. #define INCLUDED_redlightmini_GSH
  9.  
  10. ////////////////////////////////////////////////////////////////////////////////////
  11.  
  12. pgenerator Pgn_redmini
  13. {
  14.     type corona
  15.     life infinite
  16.     rate 1            // exactly the same as the decay rate hence the effect !
  17.     
  18.     // stream direction
  19.     x    0
  20.     y    0
  21.     z    0
  22.     
  23.     // particle colour
  24.     red   1
  25.     green 0.2
  26.     blue  0.2
  27.     alpha 1
  28. }
  29.  
  30. light Lit_redmini
  31. {
  32.     red             1
  33.     green           0.1
  34.     blue            0.1
  35.     specular red    1
  36.     specular green    0
  37.     specular blue    0
  38.     range           4
  39. }
  40.  
  41. role Rol_Redlightmini : Rol_DefaultGarbage
  42. {
  43.     shape        Pgn_redmini
  44.     light        Lit_redmini
  45.     moves on lifts    yes
  46.     identifier    "redlight"
  47. }
  48.  
  49. ////////////////////////////////////////////////////////////////////////////////////
  50.  
  51. // end wrapper - for preventing multiple or recursive inclusions
  52. #endif // !INCLUDED_redlightmini_GSH